Arc procedure

  DECLARATION:  Arc(X,Y : Integer; StAngle, EndAngle, Radius : Word);

      PURPOSE:  Draws a circular arc.

         UNIT:  Graph

      REMARKS:  Draws from a specified start angle to a specified end
                angle, using (X,Y) as the center point and Radius as the
                radius of the arc.  The Arc is drawn in with the current
                drawing color.

                Each graphics driver contains an aspect ratio that is used
                by Circle, Arc, and PieSlice.  Using a StAngle of 0 and
                an EndAngle of 359 will draw a complete circle.

                The angles are denoted counterclockwise with 0 degrees at
                3 o'clock, 90 degrees at 12 o'clock etc.

 RESTRICTIONS:  Must be in graphics mode.

      EXAMPLE:  Uses Graph;

                Var
                   Gd, Gm : Integer;
                   radius : Integer;

                Begin
                   Gd := Detect;
                   InitGraph(Gd, Gm, '');
                   If (GraphResult <> grOK) Then
                      Halt(1);
                   For (radius := 1 To 5) Do
                      Arc(100, 100, 0, 90, radius*10);
                   Readln;
                   CloseGraph;
                End.